﻿Imports System.IO
Public Class Form1
    Dim path As String = Directory.GetCurrentDirectory
    Private _UserName As String
    Sub New()
        _UserName = ""
        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub

    Public Property UserName As String
        Get
            Return _UserName

        End Get
        Set(value As String)
            _UserName = value
        End Set
    End Property

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles btnCauThu.Click
        frmCauThu.ShowDialog()
    End Sub

    Private Sub btnTranDau_Click(sender As Object, e As EventArgs) Handles btnTranDau.Click
        frmKQTD.ShowDialog()
    End Sub

    Private Sub btnHLV_Click(sender As Object, e As EventArgs) Handles btnHLV.Click
        frmHLV.ShowDialog()
    End Sub

    Private Sub btnCLB_Click(sender As Object, e As EventArgs) Handles btnCLB.Click
        frmClb.ShowDialog()
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles btnTinTuc.Click
        Process.Start("http://www.tinthethao.com.vn")
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim _bxh As New dsBXHUI
        labUs.Text = "Xin Chào: " & UserName
        dgvBXH.DataSource = _bxh.SapXep(_bxh.LoadBXHUI())
        crpViewer.ReportSource = rpTTGD1
        hl1.HelpNamespace = path + "\hlp\index.html"
    End Sub


    Private Sub btnTaoLTD_Click(sender As Object, e As EventArgs)
        frmLTD.ShowDialog()
    End Sub

    Private Sub btnBXH_Click(sender As Object, e As EventArgs) Handles btnBXH.Click
        frmBXH.ShowDialog()
    End Sub


    Private Sub ĐôiBongDânĐâuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ĐôiBongDânĐâuToolStripMenuItem.Click
        crpViewer.ReportSource = rpDDD1
    End Sub

    Private Sub ĐôiBongNguyCơXuôngHangToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ĐôiBongNguyCơXuôngHangToolStripMenuItem.Click
        crpViewer.ReportSource = rpDXH1
    End Sub

    Private Sub musacm(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Process.Start("http://web1_12ck4.byethost8.com/index.php")
    End Sub

    Private Sub btnVideo_Click(sender As Object, e As EventArgs) Handles btnVideo.Click
        frmVideo.ShowDialog()
    End Sub

    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles btHelp.Click
        Help.ShowHelp(bt1, hl1.HelpNamespace.ToString())
    End Sub
End Class
